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31 * * 226 ** SFIXT % 
32 * DATE 17DEC76 DATE OYUMART7T DATE 10JUN77 DATE O1MAR78 * 227) ** A RULE EQUATE X‘'0101! ee 
au : E.C. 578486 E.C. 578638 E.C. 578625 E.-C. 755285 . 238 be ADDRESS OF MESSAGE TO PRINT pie 
QS RR HMA he he ea A ee ee HH HE He HH He He He He He He He MEK Hee He He ee he ee Oe ee ee he he 2 ek ee ee ee 2 oe He eI ee 230 ** $STOP *x* 
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000600 45 @NVLD EQU x'0600!? EQUATED VALUE FOR MDI STATEMENT 241 ** x 
000000 47 Ee EQU X'0000! EQUATE FOR EQUAL 242 ** SCALL ** 
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OO18AE 86 TUPARM11 EQU PID+X*OOAE!? ADDRESS OF PARM 11 POINTER 281 ** * 
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0018B2 88 TUPARN13 EQU PID+X"*O0B2? ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT %& 
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0019D0 105 DEVADD EQU PID+X'O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LIWE wx 
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I7821 --- CLOCK/4962 P/N=1635399 EC=755285 PAGE 03 T7824 =-= CLOCK/4 962 P/N= 1635399 EC=755285 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBH CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM TORP 1976 
0026E8 0010 536 pc A (0016) 000009 654 RID EQU 9 READ ID SVC 
OO26EA D4SCID7F7F8F2FI40C 537 DC CLOO16"MHAP7821 CORRECT '* OOOOOA 655 START EQU 10 START CYCLE STEAL SVC 
538 HDIT OOB2 Q0000B 656 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
OO26FA 0000 540+0OPTIN1 DC X*0000! PROGRAM OPTION CONTROL WORD 1 O00000C 657 PREP EQU 12 PREPARE DEVICE SVC 
5414* 00000D 658 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
0026FC 0000 542+OPTN2 DC X*'0000! PROGRAM OPTION CONTROL WORD 2 QOO00E 659 READ1 at 14 READ WITH FUNCTION BIT 3 ON SVC 
543+4+* BIT HEX QOOOOOF 660 RSTAT EQU 15 READ STATUS SVC 
000010 5444+B48 EQU 16 0 8 FROBLEM PROGRAM CONTROL BITS 000010 661 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 545+B49 EQU 7 1 4 * 000011 662 WRIT? EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000012 546+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 663 CTRL E8u 18 CONTROL SVC 
000013 5474+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 664 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 548+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 665 CICB ae 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 549+B53 Eau 21 5 4 * 000015 666 HIO EQU 21 HALT A I/o 
0000 16 550+B54 EQU 22 6 2 * 000016 667 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 5514+B55 a 23 7 1 * 000017 668 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 552+B56 EQU 24 8 8 * 000018 669 HALT EQU 24 HALT SVC 
000019 553+B57 EQU 25 9 4 * 000019 670 ETOH ES h 25 EBCDIC TO HEX SVC (STRING 
OOOOTA 554+B58 EQOU 26 10 2 * QOOOO1TA 671 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
00001B 5554#B59 EQU 27 11 1 * Q0001B 672 ATOH EQU 27 ASCII TO HEX SVC TRING 
00001C 556+B60 EQU 28 12 8 * 00001C 673 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00001D 557+B61 ti 29 13 4 * 00001D 674 ETOA EQU 29 EBCDIC TO ASCII SVC (STPING 
QOOOOTE 558+B62 EQU 30 14 2 * QOO001E 675 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
QOOO1TF 559+B63 EQU 31 15 1 cs OOO0O01F 676 READI EQU 31 READ DATA SETS FOR MDI/0UTIL 
OOOOTE 560+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 677 WRITI EU 32 WRITE DATA SETS FOR UTIL 
OOO001F 5614+#CMP EQU 31 15 1 COMPARE OPERATION G7 RR RHR HE He ee Re HE HH I He HK ie eH Hee HK He a he ee ee fe ee ca he ae he ate He a ah 2h he kc 
OO26FE 0000 563+0PTN3 DC X*0000! PROGRAM OPTION CONTROL WORD 3 680 * * 
5644% 681 * EQUATES USED BY TU'S AS CONSTANTS * 
£65+* Q MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cS 682 * * 
566+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA GB A HH RH HH HR HH I a IKK HK He ee a 2 a ote tc oe 2 he fe ok ak te ae ic akc ic a fe fe akc tee a ae ec 
567+* 2 EXPECTED INTERRUPT XT 10 CS STATUS INTERRUPT ERP CE QOOOO4YE 684 PLUS EQU Cct+ PLUS CHAR 
568+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) TS BON 000060 685 MINUS EQU ct=4 MINUS CHAR 
5694+* 000000 687 ZERO EQU 0 
570+* 4& EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 688 ONE EQU 1 
571+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR IOCC 000002 689 TWO EQU 2 
572+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOTIN 000003 690 THREE EQU 3 
573+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000004 691 FOUR EQU 4 
5744+%* BIT HEX 000005 692 FIVE EQU 5 
000020 575+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 693 SIX EQU 6 
000021 576+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 694 SEVEN EQU 7 
000022 577+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 695 EIGHT EQU 8 
000023 578+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 696 NINE EQU 9 
000024 579+4XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 697 N EQU 10 
000025 580+HE EQU 37 5 4 HARD ERROR, 8 RETRIES Q00000B 698 ELEVYN EQU 11 11 
000026 581+S3LE EQU 38 6 2 INTERRUPT én WRONG LEVEL ERROR 00000C 699 TWELV EQU 12 12 
000027 582+4N EQU 39 7 fi NO INTERRUPT EXPECTED E 00000D 700 THRIN EQU 13 13 
000028 583+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 701 FIVIN et 15 15 
000029 5844CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 000010 702 SIXTN EQU 16 16 
OO002A 585+C EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROP 000020 703 THRY2 EQU 32 32 
00002B 586+ISBON EQU 43 11 1 ISB BITS ON Seak 000040 704 SIXT4 set 64 64 
00002C 587+N EQU 44 12 8 TEST UNIT RESULTS NO GOOD 000080 705 ONE28 EQU 128 128 
00002D 588+#IOCC EQU 45 13 4 OIO CC ERROR 000100 706 TWOS6 EQU 256 256 
00002E 589+NOIN EQU 46 14 2 NO INTERRUPT 000400 707 ONEK EQU 1024 1024 
00002F 590+INCC EQU 47 15 1 INTERRUPT CC ERKOR 000800 708 TWOK EQU 2048 2048 
| 591+* | 000C00 709 THREK EQU 3072 3072 
| 592+* COMMON BUFFER FOR PRINTING DATA 001000 710 FOURK EQU 4096 4096 
593+* FFFFFF 712 M1 EQU =A -1 
002700 0000 595+$T0ID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 713 M2 EQU =2 -2 
002702 0000 5964#+SIOIN DC A (*¥-* I/O AND INTR CONDITION CODES FFFFFD 714 M3 EQU =3 =3 
002704 0000 597+SISB DC A (*-* R INTR STATUS BYTE & DEV ADRS PFFFFC 715 M4 EOu -4 -4 
002706 0000 598+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES TV A RH RH Ee aK ee He KK He ee ee He oe he ae he ae ea ae he a ee RO oR a ie eke 2K aR a ke i ae ke fe acai a ai akc a ae ae oe afc te oi afc 
002708 0000 5994#DEV1 DC A (*-* DEVICE DEPENDENT DATA 718 * * 
00270A 0000 600+DEV2 DC A (*-* * 719 * THE FOLLOWING APE EQUATES FOR BIT DISPLACEMENTS FPOM THE * 
00270C 0000 6014+DEV3 DC A (*-* * 720 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
00270E 0000 602+DEV4 DC A (*-* * 721 * x 
002708 603+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN T2D RR RAR a ek ie i RK kk ek RO IO i kok i koiofototok tok ak kotor ak te ak ok ok a ote ic ak ofc oie 
002710 604+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 000000 723 BSO EQU 0 
002710 0000 6054+#DCB1 DC A (*-* LAST DCB TABLE, CONTROL WOPD 000001 724 BS1 EQU 1 
002712 0000 606+DCB2 Dt A (*-* LAST DCB TABLE, DEV DEP WORD 000002 725 BS2 EQU 2 
002714 0000 607+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 726 BS3 EQU 3 
002716 0000 608+DCB4Y DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 727 BS4 EQU 4 
002718 0000 609+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 728 BSS EQ’ 5 
00271A 0000 610+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 729 BS6 EQU 6 
00271C 0000 €11+#DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 730 BS7 EQU 7 
00271E 0000 612+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 731 BS8 EQU 8 
613+* : 000009 732 BSI EQU 9 
002720 614+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 733 BS10 EQU 10 
002720 0000 615+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS QOO0000B 734 BS11 EQU 11 
002722 0000 6164#CSTL2 DC A (*¥-* CYCLE STEAL WD 2, PEVICE DEPEND 00000C 735 BS12 EQU 12 
002724 0000 6174+CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 736 BS13 EQU 13 
002726 0000 6184+CSTL4 DC Rh (*¥-* CYCLE STEAL WD 4, DEVICE DEPEND QOO00E 737 BS14 EQU 14 
002728 0000 6194#CSTL5S DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND O0000F 738 BS15 EQU 15 
00272A 0000 620+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 740 COP CK78DCB 0O1DEC76 
00272C 0000 627+CSTL7T DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 141 ** {ET8DCB) 13AUG76 
00272E 0000 €22+CSTL8 pc A (*-* CYCLE STEAL WD 8, DEVICE DEPEND aie igs Be A eK oe ek kK ek ok tC tok kok ai kok i tet ike akteake kak ae ake ata ok of leak ak ak kc of ok 2k 
$% 
002730 0000 6244+$SUBN DC AR (*-* LAST SUBROUTINE ADDRESS USED 744 * DCB TABLES AND DC'S 
002732 00000000 625+SDATA DC 2A (*-* OPTIONAL DATA 745 * 
002736 0021 6264+$FINTL DC X*0021! INTERRUPT LEVEL REQUESTED TUG RR I Re He Re i RO RR RK IK Kk ok IK RR i oi ke tk kk ak feat ek ok kek ic ako oe leak kc ke 
002738 0000 627+TOURTN DC Co Ppa TEST UNIT RETURN ADRS TO MDI T47 * 
00273A OOB2 628+S3DVID DC X'OOB2! DEVICE ID T48 ***** DTAGNOSTIC DCB RE RHK KKH 
00273C 19D0 6294+SVCAL DC A (DEVADD) ADPS OF DEVICE ADDRESS 7TH9 * 
00273E 0000 630+ DC A (*-*) IBIS CYLINDER ADDRESS 002748 2008 750 DGDCB DC X'2008'! DIAGNOSTIC DCB 
631+* 00274A 0000 751 DC X'O000! NOT USED 
632+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 00274C 9000 752 DC xX'0000° NOT USED 
633+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE OO27T4E 0000 753 DC X'OO000! NOT USED 
634+ STILL VALID BUT A DIFFERENT TEST IS TO PE PERFORMED. 002750 0000 754 DC X'0000! NOT USED 
635+* 002752 0000 755 DC A toaoh CHAINING ADDRESS 
002740 4020 2700 3c02 636+T3C02 MVWI X'3C02',STUID SET UP TEST UNIT ID 002754 0100 7156 DC X'0100! BYTE COUNT 
002746 5700 oa. exe y At ‘ RETURN TO MDI SUPVR 002756 0000 ae y DC A (*-*) DATA ADDRESS 
GQ a HR Ho HH I I IR RR RR ok ok ok oe Ro io oo dk coke keke ok ke ac ak ke og i ok 2k 7159 * 
641 * * 760 ***** RECALIBRATE DCB ******#x 
642 * EQUATED NAMES FOR SUPPORTED SVC'S * 761 * 
643 * * 002758 0007 762 CLDCB DC X'OO07! RECALIBRATE DCB 
BU 2 RIOR III I RR OR RK kk kok ok ik kk ok kok ek kok ie ete otek oc ek a ke ae aco ak ie ok ak 00275A 00000000000000000 763 Dc 7A (*-*) 
0000090 645 OUT EQU 0 OUT SVC 764 * 
000001 646 OUTIN EQU 1 OUTIN SVC 765 ***** WRITE SECTOR ID ** 
000002 647 IDLE EQU 2 IDLE SVC 766 * 
000003 648 ASCII EQU 3 HEX TO ASCII svc 002768 0002 767 WSDCB DC Xx'0002' WRITE SECTOR ID CONTROL WORD 
000004 649 CHNGE EQU 4 CHANGE LEVEL SVC 00276A 0000 768 DC X¥'0000! NOT USED 
000005 650 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 00276C 0000 769 DC A (*-* O-7 = PHYSICAL SECTOR # MINUS ONE 
000006 651 EXIT EQU 6 EXIT SVC 00276E 0000 7170 DC A (*-* NOT USED 
000007 652 TERM EQU 7 TERMINATE SVC 002770 0000 771 DC A (*-* NOT USED 
000008 653 RESET EQU 8 RESET DEVICE SVC 002772 0000 772 DC A (*-* CHAIN ADDRESS 
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17821 --- CLOCK/4962 P/N= 1635399 EC=755285 PAGE 05 17821 --- CLOCK/4 962 P/N=1635399 EC=755285 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1003 * ; THE CALL WITH THE ADDRESS OF THE RETPY STATEMENT 11174+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
1004 * 4. CYCLE STFAL IN PROGRESS WITH AN ERROR 117 8+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE isyc STARTS. 
1005 * 5. SOMETHING ELSE 11194+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND, TIMING 
1006 * 1120+* STARTS TO DETERMINE A LOST INTERRUPT. 
1007 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1121+* 7. EXCEPT THE INTEFFUPT AND GATHER INFORMATION TO DETERMINE IF IT 
1008 * m 1122+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1009 * 4 BAL SRKEW,&6 READ SECTOR ID SKEWED 1123+%* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
1010 * % 1124+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
1011 * 2 BAL SWKST,FP6 WRITE SECTOP ID SKEWED (TEST) 1125+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
1012 * a 1126+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1013 * 3 BAL SRWST,RP6 READ SECTOR ID SKEWED (TEST) 1127+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PPOGRESS THAT WAS 
1074 * Fa 1128+* ISSUED BY THIS SUBROUTINE. 
1015 * 4 EAL SRIDS,R6 READ SECTOR ID (TEST) 1129+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A 
1016 * ‘* 1130+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
1o18 . 5 BAL SWKEW, RE WRITE SECTOR ID SKEWED eo COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
2 + 
1546 : 6 BAL SWSEC,F6 WRITF SECTOR ID Ses CALLING SEQUENCE 
7 + 
aoa i 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST qiecre THIS ROUTINE HAS THE FOLLOWING ENTRIFS: 
a + 
1023 * 8 BAL SDIAG,R6 DIAGNOSTIC 1137+* --> BAL XIO OF XEQ ANY CYCLE STEAL COMMAND MOD=0 
1024 * ‘ 11358+* --> BAL XI0O1 MOD PARM PRELOADED IN 'Tomopt 
1025 * 9 BAL XIOCS,RE CYCLE STEAL STATUS 1139+* --> BAL XIOCS ,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
1026 * a 1140+* --> BAL XIOCS-4,R6 AUTO CS STATUS FOLLOWING OTHER XIO 
aaa i 10 BAL SSEEK,R6 SEEK ie: . AND DOES NOT POST INTERRUPT STATUS) 
: , + 
ae 7 11 BAL SPRECL,F6 RECALIBRATE Avance RETURN CONTROL 
- + 
1031 * 12 BAL SPRDID,R6 READ SECTOR ID 1145+ BXS R6, 2) RETURN TO USER NO ERROR 
1032 * * 1146+* OR B R6{ * RETURN AND RETRY ON ERROR 
1033 * 13 BAL SRD, P6 PEAD 117 4 OR ka RR ROR IR IO RO IORI FOR ICO OIRO FOI 20 Ra RII RR ak fe kak fc ic ak ae aie ik af afc ake fe ate 
1034 * S 00296A CB25 2A6E 11494+xXIO MVWZ ICOMOD,F3 SFT MOF OF O FOR CYCLE STEAL OP 
aac . 14 BAL SRDVY,R6 PEAD VERIFY OO0296E SOOA ee J X¥IO1 CS T/O'S ARE NOT RETRIED 
2 + 
1037 * 15 BAL SWRT,R6 WRITE 002970 UCAA 1152+ TBTR R4,CE RESET CS STATUS INTER ERPOR INDICAT. 
1038 * 002972 4068 1153+ TBTS R4Y,CS SET "CYCLE STEAL STATUS! IN PROGRESS 
1039 * 002974 4020 2A6C 27A8 1154+XIOCS NVA CSDcB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
0028B2 4020 2A6C 2798 1040 $SEEK HVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2Z97A 4020 2A6E OOOF 1155+ MVWI X'OO0OF',TOMOD SET CYCLE STEAL MODIFIER 
0028B8 5058 1041 J XIO 002980 4C28 1156+ TBT ao CS) IS CS IN PROGRESS, EPROP CONDITION 
1042 * 002982 1213 1157+ JON To} * YFS, BYPASS SAVING 1/0 ADRS 
OO28BA 4020 2A6C 2758 1043 $RECL MVA CLIDCB, TIODCB SET UP BLOCK FOR SVC CALL 002984 6EO0D 2706 1158+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
0028CO 5054 1044 J XxTo 002988 4324 2710 1159+ HVA DCBUF,R3 SFT UP TO ADRS TO MOVE DCB TABLE 
1045 * 00298C 6D08 2A6C 1160+ MVW IODCB,R5 * AND THE FROM ADRS ALONG WITH 
0028C2 4020 2A6C 2778 1046 SRDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL 002990 OF10 1161+ MVBI 16,87 * THE NUMBER OF MOVES 
0028C8 OBFF 1047 MVBI X'FF! ,P3 SET BUFFER TO F'S 002992 2D64 1162+ MVFN R5) Ae?) MOVE 1 STATUS WORD AND ADJUST 
OO28CA 4524 2708 1048 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADPS 002994 OBFF 1163+ NVBI 55 f CLEAR CYCLE STATUS BUFFER 
OO0O28CE 4724 0006 1049 MVWI 6,R7 SETUP BUFFER LENGTH 002996 4524 2720 1164+ MVA CSBOF,R5 * TO ALL ONES 
0028D2 2BAC 1050 FFN R3 {BO} INIT READ SECTOR ID BUFFER 00299A OF10 1165+ MVBI 16,R7 * 
0028D4 4020 2786 2708 1051 HVA SCf D,RSDCB+14 DATA ADDR 00299C 2BAC 1166+ FFN R3 Ane) % 
OO28DA 5047 1052 J XIo 00299E 4020 2702 0708 1167+ MVWI x'6 08',SIOIN OVERLAY OLD CONDITION CODES 
1053 * OO29A4 CB25 2704 1168+ HVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
0028DC 4020 2A6C 27D8 1054 SRD MVA RDDCB, IODCB SET UP BLOCK FOR SVC CALL 1169+ 
0028E2 5043 1055 J XIO 0029A8 {CA1 1170+ TBTR R4Y,ER RESET ANY ERROR BEFORE T/0 COMMAND 
| 1056 * OO29AA 4CA3 1171+XI02 TBTR R4Y,IN CLEAR INTERRUPT FECEIVED CNTIL BIT 
O028E4 4020 2A6C 27C8 1057 SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL | OO29AC 4724 2A68 1172+ MVA oBLK 7 SET UP CONTROL BLOCK FOR SUPVR 
OO28EA 503F 1058 J XIO 002980 4YCA6 1173+ TBTR R4, $148) RESET LEVEL ERROR INDICATOR 
1059 * 0029B2 4c62 1174+ TBTS RY ,XT) SET EXPECTED INTR CONTROL BIT 
O0028EC 4020 2A6C 27B8 1060 $WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0029B4 600A 1175+ SVC TART CALL SUPVR FOR I/O COMMAND 
0028F2 5038 1061 J XIO 1176+* 
1062 * 0029B6 4CAT 1177+ TBTR R4,NI) IS AN INTR EXPECTED 
OO28F4 4020 2A6C 27F8 1063 SRKEW MVA RKDCB, IODCB SET UP CONTFOL BLOCK FOR SVC CALL 0029B8 6ACO 0002 1178+ BN R6,2) * NO, RETURN TO USER 
OO28FA 4020 2806 2708 1064 NVA SCTID,PKDCB+14 DATA ADDR 1179+* 
002900 5034 10e2 " J XIO atau THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
002902 4020 2A6C 27E8 1067 SWKST MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 0029BC 0ODO0O 1182+ MVBI X*00',R5 SET UP WORK REG FOR "LOST INTR! 
002908 4020 27F6 281A 1068 HVA WSIDT ,WKDCB+14 DATA ADDR OO29BE 4CA3 1183+xXI08 TBTIR ire tf) HAS INTERRUPT BEEN RECEIVED 
00290E 502D 1069 J XIO 0029C0 1238 1184+ JON ToéK * YES, CHECK IF ALL WAS SATISFACTORY 
1070 * 0029C2 6002 1185+ SVC IDLE ALLOW ANOTHER PPOGRAM A CHANCE TO RUN 
002910 4020 2A6C 27F8 1071 SRWST MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1186+* SUPVR WILL RETURN HERE 
002916 4020 2806 2820 1072 HVA SCTST, RKDCB+14 DATA ADDR 0029C4 TDA1 0001 1187+ AWI 1,R5 ADVANCE TIAHE OUT COUNT 
00291C 5026 1073 J XIoO 0029C8 18FA 1188+ JINZ x08 BCH IF TIME OUT NOT REACHED 
1074 x QOO029CA 4C61 1189+ TBTS P4,ER) SET ON ERROR CONTROL BIT 
OO0291E 4020 2A6C 2778 1075 $RIDS MVA RSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0029CC 68D2 0000 1190+ B R6} * ERR "NO INTERRUPT! 
002924 OBFF 1076 MVBI X'FF!",R3 SET BUFFER TO FtsS V1 QD HR RR RE OR oi oioitoicioilokiiokicdok okt akc OQ 3 FB 7 6k 
002926 4524 2820 1077 MVA SCTST.,R5S SETUP READ SECTOR ID BUFFER ADRS 11934+* 
Q00292A 4724 0006 1078 MVWI 6,R7 SETUP BUFFER LENGTH 1194+* SUBROUTINE 
00292E 2BAC 1079 FFN R3 Ok INIT READ SECTOR ID BUFFER 1195+ 
002930 4020 2786 2820 1080 MVA scfst, SDCB+14 DATA ADDR 1196+ T/O EXECUTE ERROR HANDLING ROUTINE 
002936 5019 1081 J XIO 1197+* 
1082 * 1198+* PURPOSE 
002938 4020 2A6C 27E8 1083 SWKEW MVA WKDCE ,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1199+4* 
00293E 4020 27F6 2814 1084 MVA WRSID,WKDCB+14 DATA ADDR 1200+* THIS ROUTINE WILL COLLFCT INFORMATION TO HELP DETERHINE THE 
002944 5012 1085 J XxIo 1201+* PROBLEM THAT WAS FOUND WHEN THE i¢° COMMAND WAS ISSUED BY THE 
1086 * 120 2+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
002946 4020 2A6C 2768 1087 SWSEC HVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1203+* 
00294C 4020 2776 2814 1088 MVA WRSID, WSDCB+14 DATA ADDR 1204+* CALLING SEQUENCE 
002952 500B 1089 J XIO 1205+* 
002954 4O20 2A6C 2768 1090 S$HSTS MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1206+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
00295A 4O20 2776 281A 1091 MVA WSIDT,WSDCBt+14 DATA ADDR 1207+* 
002960 5004 Aes ‘ XIO ees RETURN CONTROL 
+ 
002962 4020 2A6C 2748 1094 $DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1210+% B (R6) * RETURN TO USERS ERROR HANDLER 
002968 5000 1095 J XIO 1211+ 
1096 XEQIT 12124 3 Rk OIRO iO igi iam RO RR I IRR ROR ROR ROR RR OR BO SR RRR RR gO aK 38k 2K 
109 74 RRR ER RK RR RK RO RIO IRI II SOR i kk kt KIO TOL 76 ** 1213+* 
1098+* 12144+* CC O= DEVICE NOT ATTACHED 
1099+* SUB-ROUTINE 1215+* FOR 1= DEVICE BUSY 
1100+* 1216+* I/0 2= DEVICE BUSY AFTER RESET 
1101+* EXECUTE INPUT AND OUTPUT COMMANDS 1217+* 3= COMMAND REJECT 
1102+* 1218+* G= INTERVENTION REQUIRED 
1103+* PURPOSE 1219+4+* 5= INTERFACE DATA CHECK : 
11044+* 1220+* 6= CONTROLLER BUSY 
1105+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1221+* T= I/O COMMAND EXCEPTED 
1106+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1222+% 
1107+ 0029D0 TO6E 1223+XIOER DC X'*7O6E!* COPY STATUS ANY LEVEL INTO R3 
1108+%* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 0029D2 336A 1224+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
11094 THE I/O COMMAND. 0029D4 C328 2702 1225+ HVB R3,$10IN * PUT IN LOG OUT AREA 
1110+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 0029D8 68D2 0000 1226+ B (RE * RETURN TO USER ERROF HANDLER 
1111+ TSSUED BY THIS SUBROUTINE. 1228+ %% 308 ek kk tok ie Sok io oka tok dak Sioa gto god teatoioge Ragoke grat fom deage k ek dak toe 7 A PR 76 eX 
1112¢* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 1229+* IL 
11134+%* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 1230+* SUB-ROUTINE IL 
1114+4+% 4“. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 12314 IL 
1115+ SINCE THE LAST EXPECTED JNTERRUPT. IF AN INTERRUPT TS FOUND, 1232+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$S$INTL* IL 
1116+4+* MYSTERY INTEPFRUPT (MI) CONTROL BIT IS SET. 1233+* Ib 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM ZORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1234+% PURPOSE IL 1350+* 
12354 IL 13514+* I/O PARAMETER LIST 
1236+ THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TJ 13524+* 
1237+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 002A68 19D0 1353+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1238+ EXPECTED CODE. TL OO2A6A 29D0 1354+ DC A {XIOER) ERROR ROUTINE ADRS 
1239+ TL 002A6C 0000 1355+IODCB DC A (*—* DCB ADRS OR LEVEL & INTR 
1240+#* CALLING SEQUENCE IL 002A6E 0000 1356+IOMOD DC A (*-* MODIFIER 
1241+ TL 002A70 0000 1357+ DC A (*—* ADRS OF LAST SVC CALL 
13s * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 002472 0000 1358+ToRsP DC A (#-* SECOND WORD OF LAST IDCB 
+ 
12uhes RETURN CONTROL TL 1360+% INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+* + 
12464+* SVC EXIT RETURN TO USER VIA SUPVR IL 002A74 19D0 1362+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
124 7+* TL 002476 2A00 1363+ DC A (INTOK INTERRUPT OK RETURN ADRS 
12.4 B+ 3 OR RR III IIIA III IORI IO IIR gOR toiotok tok dot dak iota tok J J, 002A78 29DcC 13644 DC A (INTER INTERRUPT ERROR ADRS 
12494* TL OO2A7A 0003 1365+INTCC DC X'0003! INTERRUPT CODE EXPECTED 
12504#* CC O= CONTROLLER END ISB O= ADD STATUS IL 13 G6 TH HH HH HH HH He HH MK HH HH He Me HH He eK HH MK KKK KKK KKK KKKKKKK KK TT MAY 76 *% 
1251+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT IL 1368+ 
1252+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 1369+* SUBROUTINE 
1253+* = DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 1370+* 
12544* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 13714%* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1255+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 1372+* 
1256+* 6= ATTENTION 7” EXCEPTION INTR 6= PROTRCT CK IL 1373+* PURPOSE 
12574+% J= ATTENTION 7 DEVICE END INTR 7J= I-PACE DATA ITIL 1374+% 
12584+% IL 13754+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0029DC 706E 12594INTER DC x! 706E" COPY STATUS ANY LEVEL INTO R3 IL 13764+* PREFARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
0029DE 336A 1260+ SRL 13 POSITION INDICATORS IN R3 IL 1377+* TO INTERRUPT. 
0029EO 424 1261+ MVA OF aaa SET UP BASE ADR IL 1378+* 
0029E4 4c¢28 1262+ TBT R RY Cg} IS cs IN PROGRESS TL 1379+* CALLING SEQUENCE 
0029E6 1006 1263+ JOFF wks * NO TL 1380+* 
0029E8 4C6A 1264+ TBTS (RG CE TURN ON CYCLE STEAL INTER ERROR IL 13814+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO29EA 6F0D 272E 1265+ MVW 8 860 R7,ESTLB SAVE CS ERR ISB VALUE, BITS 0-7 TL 1382+* 
0029FE C328 272F 1266+ MVE R3°CSTL8+1 * AND THE COND CODE IL 1383+* --> BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
0029F2 5SOOA 1267+ J INTR1 IL 1384+* --S BAL  $CONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
0029F4 4c24 1268+INTES TBT 4Ra XE) TEST EXPECTED ATTEN / ERROR IND IL 13854* 
0029F6 1002 12694 JOFF iINTET BCH IF NOT EXPECTED TL 1386+* RETURN CONTROL 
0029F8 F304 1270+ CBI 4,R3 TS THIS AN 'ATTENTION' INTR IL 13874+%* 
O029FA 1006 1271+ JE ThTR1 * YES, BCH TO END INTR SEQUENCE IL 13884 BXS R6 ,2) RETURN TO USER VIA REG 6 IF OKAY 
0029FC 4C61 1272+INTET TBTS (Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 1389+* OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED 
0029FE 5004 1273+ J wrh1 TL 1390+* 
12744+* THE ERROR INTERRUPT USES THE SAME IL 13 OH RK RK MH Me He He He Hee ae He He Me He He He ee ie eee Hc 2c He He He He ee He he he 2 ak ee Re ec Se 2c He 3 ic hc he 3c ee He 2c ie hc hc Kc 
12754+* ENDING SEQUENCE AS THE NORMAL INTR IL OO2A7C OFO6 1392+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
12 TTA RR HK KEK ORO OR ic io tok tak kok toto kk ek tok kkk PUAPRTG6IL OO2ZATE OBOO 1393+ MVBI 0,R3 * AND THE DATA TO USE 
12784+%* IL 002480 4524 2708 1394+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
1279+* SOUBROUTINE IL 0O2A84 2BAC 13954 FFN 3 (85) * 
1280+* TL 002486 CB25 26FE 1396+ MVWZ OPfN3,R83 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1281+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL? IL OO2A8A 4724 2A74 1397+ MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
12824+% TL OOZA8E 6014 1398+ SVC CICB * CONNECT IT TO THIS DEVICE 
128344 PUP POSE | TL 002490 6AD0 0000 13994 BN (R6) * ERROR RETURN TO USEP 
+ + 
1285+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 002894 8828 2736 2A6C 14014+$CONP MVW S$INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
12864% TL OO2A9A 4724 2A68 1402+ MVA  TOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
1287+* CALLING SEQUENCE TL OO2A9E 4020 2702 0708 1403+ MVWI X10 708" ,STOIN INITIALIZE CONDITION CODE STORAGE 
12884% IL | OO2AA4 CB25 2704 1404+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
12894+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED Tt: 0O2AA8 6ROD 2706 t405+ MVW  R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
1290 +* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL OO2AAC 600C 1406+ SVC Prkp * AND CALL ON SUPVR 
12914% AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL OO2ZAAE 5601 1407+ BX (RE, 2) RETURN TO USER 
Weacls COMMON SECTION IS HANDLED HERE. ITIL AN OO keKeEA CER ARE OSES Me He He He He AK He He He He HE He He he He He He Hee He he he ie He 2 He He 3 he 2 a he ke eke ake ke 2 kk KKK OHA PRTG ** 
$k TL 1410+* 
1294+* RETURN CONTROL IL 1411+* SUBROUTINE 
12954* TL 1412+% 
129 6+% SVC EXIT RETURN TO USER VIA SUPVR IL 141344 DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+ 
12.9 8+ 3 I ICO COG IORI GIG gd gitok doko tatok lok sekotetok tet 7 7, eee PURPOSE 
002400 706F 12994INTOK DC X'706E" COPY STATUS ANY LEVEL INTO R3 TL 14164* 
0O2A02 336A 1300+ SRL  13,R3 POSITION INDICATORS In P3 TL 14174* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO2A04 “U2W 26FA 1301+ MVA OFTN1,R4 SET UP BASE ADR IL 14184+* SET THE "NO GOOD! CONTROL BIT THEN LOG THE DATA THAT HAS 
00O2A08 4C63 13024INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED TL 1419+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROP CONDITION. 
OOZA0A 4C28 1303+ TBT R4-CS IS "CS IN PROGRESS' ON TL 1420+* 
OO2ZA0C 1204 1304+ JON nr k2 * YES, BCH AROUND UPDATE IL 14214* CALLING SEQUENCE 
OO2A0ER C328 2703 1305+ MVB R3,SIOIN+1 SAVE INTERRUPTING CC CODE IL 14224+* 
002A12 6FOD 2704 1306+ MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 14234% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002A16 1307+INTR2 FOU IL 14244* 
1308+* CPCL R5 CURRENT LEVEL COPIED BY DCP L 1425+* --> B SERRS SET 'NG' BIT AND CONVERT DAPA TO LOG 
002A16 3521 1309+ SLL 4,R5 EOSITION INTR LEVEL AND PUT IL 14264+% --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
002A18 0501 1310+ ABI 1,5 * IN 'I't BIT TL 142 7+% 
OO2ZA1A CD24 2736 1311+ CW StNTL, R5 YS THIS THE CORRECT INTR LEVEL IL 1428+* RETURN CONTROL 
002A1E 1002 1312+ JE INTR3 " * YES, GO EXIT THIS LEVEL IL 14294* 
002420 4C66 13134 TBTS (R4,SLE) SET INTR LEVEL ERROR CONTROL BIT TL 1430+* B TURTN * RETURN TO MDI 
002022 4C61 13144 TBTS (RU,ER SET ERROR ON T/O COMMAND CNTL BIT TL 14314+* OR B (R6) * IF THE DEVICE COULD NOT BF CONNECTED 
OO2A24 4CA2 13154+INTR3 TBTR (R4/XT WAS INTERRUPT EXPECTED IL 14324+% 
002426 1204 1316+ JON Nrky * YES, EXIT OFF THIS INTR LEVEL IL TUS 3 HH HE HR He Me he Be he He he Ae He hee He Be he He He he ee He he fe ke ae he he he he he 3c ee fe ae he ke ee i a ae 2k eae ac ake ak aoe ak ae ok ac ah a ak of oe ofc oe ak ok 
002428 4ucé60 1317+ TBTS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT TIL 002AB0 4020 1818 8000 14344$ERR$ MVWI X'8000',TUSTATUS SET ON "NO GOOD' STATUS BIT 
OO2A2A F304 1318+ CBI rR3 ATTENTION INTERRUPT? TL OO2AB6 4724 2C1A 1435+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
0O2A2C 1001 13194 JE INTRYX YES Ih OO2ZABA 601A 1436+ SVC HTOE CONVERT HEX TO EBC VIS DC? 
OO2A2E 4cé6C 1320+ TBTS (Ru NG) ERROR, UNEXPECTED INTERRUPT IL 0O2ABC 0D03 14374SERNT MVEI 3,R5 
002830 6006 1321+INTRX SVC XIt EXIT THIS LEVEL VIA SUPVR TO PGM IL OO2ZABE 4324 181A 1438+ MVA TOWORK,R3 SET UP BUFFER STORAGE 
VB D3 HH RRH HHH HHH HK KH He HI OK I tk kk ak kk dokookok kkk ok ek kk KO OF EBT 6G «eX O0O2AC2 6BOD 2C12 1439+ MVW R3 BUFPT 
1324+% OO2AC6 4124 2B42 1440+ MVA LINE, 
1325+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT OO2ACA OFOY 14414 MVBI 4,R7 
1326+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN OO2ACC OEDB 1442+ MVBI 8-R6 
1327+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. OO2ACE 2B24 14G34+MVBUF MVFN (R3) , (R1) 
1328+% OO2AD0 OFO4 14404 MVBI 4, R 
1329+4+%* 0O2AD2 OA4O 1445+ MVBI x'4o',R2 
002A32 4CA4 13304+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED OO2ZAD4 C258 14464 MVB. R2 ari + 
0O2A34 6ACO 0002 1331+ BN R612) / * YES, EXIT THIS ROUTINE 00O2AD6 BEFB 14474 gct MVBUF,R6 
002A38 4CAB 1332+ TBTR (R4°CS) WAS AUTO CS IN PROGRESS OO2ZAD8 OF08 1448+ MVBI 8,R6 
OO2A3A 1006 1333+ JOFF xXtocv * NO, CONTINUE CHECKING OO2ZADA 7921 002C 14494 AWI «6: 44 RR 
OO2ZA3C 4C2A 13344 TBT (Ra CE) ts c& IN AN ERR CONDITION OO2ADE BDF7 1450+ JCT  MVBUF,RS5 
0O2A3E 1002 1335+ JOFF x1o0o * NO, BCH OO2AEO0 4020 1802 FIFO 1451+ MVWI PIDMS610,PID+2 
002A40 68D2 0000 1336+ B R6) * cs ERROR OO2AE6 4020 19B8 2C18 1452+ MVA  FAKETU,a@DCADD1 
OO2A44 4C69 1337+XIOCO TBTS RY CSA) TURN ON CS STATS AVAIL FLAG OO2AFC 4020 19BA 2C14 1453+ MVA DC2PT. SpCADD2 
OO2A46 5601 1338+ BXS 2) GO TO USER OO2RF2 402c 19c4 0080 14544 OWI BiT0080,SUPSTAT 
OO2ZA48 4c21 13394XIOCV TBT 7 ER) WAS ERROR INTR CONTROL BIT ON OO2AF8 4324 2700 1455+ MVA $TOID,R3 SET UP BUFFER STORAGE 
OO2A4A 1008 1340+ JOFF Re * NO, EXIT THIS ROUTINE OO2ZAFC 6F13 18BA 1456+ BAL TUNSG ATES, R7 GO TO MESSAGE WRITER 
+ 
OO2A4C C520 2703 1342+ MVB STOIN+1, R5 GET LAST INTR CC CODE 002B00 1458+$CONX EOQU 
002850 F502 1343+ CBI R5 IS THIS CC=2 002B00 C720 19D0 1459+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
002852 68D1 0000 1340+ BNE if aly * NO, BCH TO ERROR HANDLER 002B04 6013 1460+ SVC RICB RELEASE INTEPRUPT CONTROL BLOCK 
002856 C520 2704 13454#XI0OCO MVB R5 GET £AST ISB DATA BYTE AND IF CS 002B06 6812 2738 1461+ B TURTN* RETURN TO MDI SUPERVISOR 
OO2A5A 6A00 2970 1346+ BN xTocS~ rn : AVAILABLE, GO AND GET I? 14624+% 
OO2A5E 68D2 0000 1347+ B (R6) *® ERROR 002B0A 0007 14634+BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
002862 CB25 26FE 13484+XIOCX MVWZ OPTN3,.R3 CLEAR OUT OFTION 3 CNTL BITS 002B0C 0008 1464+ DC A t0008 LINE LENGTH = 8 CHAR 
002866 5601 1349+ BXS (R6, 25 RETURN TO USER VIA REG 6 0OO2B0E 5S5C5C40C1C2D6D9E3 1465+ DC C'*x* ABORT! 
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P/N=1635399 EC=755285 
STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
+ A (0040) LINE LENGTH = 40 CHAR 
+ C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ' 
+ A (0040) LINE LENGTH = 40 CHAR 
+LINE1 Cc? y 
+ A (0040) LINE LENGTH = 40 CHAR 
+ C*CNTL DCB2 DCB3 DCB4 DCB5 CHAD BYCT ADRS ° 
+ A (0040) LINE LENGTH = 40 CHAP 
+LINE2 c! t 
+ A (0040) LINE LENGTH = 40 CHAR 
+ C*RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ' 
+ A (0040) LINE LENGTH = 40 CHAR 
+LINE3 Cc! ' 
+* 
+BUFPT abet 
+DC2PT A (BEGIN) 
+FIXTU X"0 101° 
+FAKETU X"0101' 
+PIDMSG X'F1FO! 
+BITOOS X'00808 
+ 
+ DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
+HEBLK DC 48) NUMBER OF BYTES TO CONVERT 
+ DC TOLD) FROM ADRS 
+ A TOWOR ) AND THE TO ADRS 
Y 7 O1DECT6 

7865 tT TESER. 
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TEST UNIT 

4962 CONTROL CLOCK STEP DIAGNOSTIC (READ SECTOR ID SKEWED) 
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CALLING SEQUENCE 


THIS ROUTINE WILL SIMULATE FILE 'C 
VIA THE 'CLOCK STEP DIAGNOSTIC! TO 


PROGRAM PASSES STATUS OF ALL LINES 
TURESUL BIT T 


TURESUL BIT 1------------ NOT 
TUORESUL BIT 2------------ NOT 
TURESUL BIT 3------------ NOT 
TURESUL BIT 4------------ Nor 
TURESUL BIT 5----------- NOT 
TURESUL BIT 6------------ NOT 
TUPESUL BIT J----------- NOT 
TURESUL BIT 8------------ NOT 

URESUL BIT 9----------- NOT 
TURESUL BIT 10---------- NOT 
TURESUL BIT 11----------- NOT 
TURESUL BIT 12----------- NOT 
TURESUL BIT 13---------- NOT 
TURESUL BIT 14----------- OTO 
TURESUL BIT 15-COMPARE ERROK 


+* RETURN CONTROL 


TURTN* RETURN TO MDI SUPERVISOR 
FCO I I IORI RCI I ia dea ki Ik i kok a ak ake ak a lak ke ike eke ike oa ke kee aie 2k ak 


R7,TURTN SAVE RETURN ADDRESS 
X'7865' $TUID SAVE TU ID FOR DISPLAY 
OPTN1,R4 SET UP POINTER ADRS TN RY 
$CONC , RE CLEAR DEV DEP STG AND CONNECT I/0 BL 
A (T65ER) ERPOP ADRS FOR INVALID PREP 
DEVADD,IDCB1+t1 LOAD DEVICE ADDPESS IN IDCB 
T65ST, R2 ADDRESS OF CLOCK STEP BUFFER 
0, T65 CLEAR SUM COUNTERS 
Test? x 
CORRS UL R5 CLEAR RESULTS WORD 
TOBLK,R4 ISSUE DEVICE RESFT 
RESET. * 
TURESUL+2, R5 CLEAR RESULTS WORD 2 
SET DIAGNOSTIC MODE 
Choet R6 * 
H (T6SER) * 
er T) TURN ON EXPECTED INTERRUPT (ATTEN) 
8600" CEDAT2 TURN ON PEADY 
CEOP2,R6 
A (76 5ER) 
(Ba TURN OFF ATTENTION INTERRUPT 
Eeep NO INTERRUPT RFECFIVED 
X10704",SIOIN CHECK FOR INT COND CODE OF 4 
TO5ER WRONG INTERRUPT CODE 
R01 INIT COUNTER 
atta CEDAT2 SEND INDEX PULSE,BEHIND HOME, 
tROP 2,R6 * SEEK COMPLETE 
A (76 65EP) ERROR 
X be0G. CEDAT2 SEND SECTOR PULSE 
CEOP2,R6 % 
A (TO5ER) EPROR 
X¥'3000' ,CEDAT2 SEND CEOP2 USING '3000! 
CEOP 2 RO * 
A(t 65£R) * 
"0200! ,CEDAT2 SEND CEOP2 USING '0200! 
cORe D2 Be 
xe ntti CEDAT2 SEND CROP2 USING '0008! 
CEOP2,F6 * 
A (T65ER) * 
1 ener DECREMENT COUNT 
T65s CONTINUE TO SEND CLOCKS 
RY NT) TURN ON NO INTER MODE INDICATOR 
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INFORMATION 
TEST THE 4962 CONTROL CARDS. 


IN FOLLOWING FORMAT: 
USED 


ROR 
EEN EXPECT TABLE & SENSE 
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2 2497 2501 2506 2510 2519 
RESS. HEX LOCATION(00002840) IN 
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RESS. HEX rae Ts ae (a IN 
1 1562 1565 1568 1571 1574 
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. HEX LOCATION(00002C14) IN 
HEX LOCATION (000019D0) IN 
946 952 959 65 


2086 2367 
HEX LOCATION (00002708) IN 
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COPYRIGHT IBM CO%P 1976 
DECLARED 
1946 1950 1954 
2113. 2116 «42119 1469 
2221 2225 2234 
5493 24061 2465 598 
CSECT(I7821 ) LENGTH(4) 575 
CSECT(17821 |) LENGTF (4) 14.43 
1593. 1631 1635 
1834 1843 1846 587 
1947 1951 1955 
2114 2117. 2420 982 
2222 2226 2235 
5424 2462 2466 375 
387 
CSECT(I7821. ) LENGTH(2) 399 
402 
4OS 
CSECT(I7821. ) LENGTH (1) 417 
CSECT(I7821 ) LENGTH(2) 429 
CSECT(I7821. ) LENGTH(2) 432 
CSECT(I7821. ) LENGTH(2) 435 
CSECT (17821) LENGTH (2) 447 
1857. 1942 1967 
2387 2603 2489 459 
CSECT(I7821 ) LENGTH(1) 462 
CSECT(I7821 ) LENGTH(2) U65 
CSECT(I7821 |) LENGTH(1) 477 
1353. 1362 1459 ies 
CSECT(I7821  ) LENGTH (2) < 
CSECT(I7821  ) LENGTH(2) 
495 
57 
CSECT(I7821. ) LENGTH(1) 
540 
| 563 
1883 2145 2430 101 
69 
CSECT(I7821  ) LENGTH (2) 
CSECT(I7821 ) LENGTH (1) 
CSECT(I7821. ) LENGTH(1) ae 
CSECT(I7821 ) LENGTH(1) so 
CSECT(I7821. ) LENGTH(2) 
979 
CSECT (I7821. ) LENGTH (2) 977 
CSECT(I7821 ) LENGTH(2) 2556 
CSECT(I7821. ) LENGTH(2) B45 
CSECT(I7821. ) LENGTH(2) 653 
CSECT(I7821 ) LENGTH(2) 664 
867 
177 
1713 1836 1874 
2382 2421 2527 603 
CSECT(I7821  ) LENGTH(2) 889 
CSECT(I7821. ) LENGTH(2) 964 
CSECT(I7821. ) LENGTH(2) 958 
CSECT(I7821 ) LENGTH(2) 801 
CSECT(I7821. ) LENGTH(2) 655 
CSECT (17821 ) LENGTH (2) 104 
CSECT(I7821 ) LENGTH(2) 92 
CSECT(I7821 ) LENGTH(1) 98 
CSECT(I7821 ) LENGTH(2) — 
CSECT(I7821 |) LENGTH (2) 
2091 2156 2372 74 
CSECT (17821 |) LENGTH (2) 75 
1063. 1067 1071 
1160 1401 6 36 
CSECT(I7821. ) LENGTH(2) 
1699 
ESDID (0) 
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ND0012 
NO0013 
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NO00016 
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PARMARA 
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ESS. 
RESS. 
RESS. 
418 
PRESS. 
406 
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LOCATION (00002574) IN 
LOCATION (00002586) IN 
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LOCATION(0000259C) -IN 
LOCATION (000025A0) IN 
LOCATTON (000025B2) IN 
LOCATION (000025C4) IN 
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LOCATION (000025CC) IN 
LOCATION(000025DF) IN 
LOCATION (000025F0) IN 
LOCATION (000025F4) IN 
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HEX POCATTON (000026FA IN 
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HEX VALUE (00000008) 

HEX LOCATION(000019C4) IN 
HEX LOCATION(000018BA) IN 


HEX ome tac eae pease ee IN 


OLUTE. 
RESS. 
ESS. 


o] ma 
ty 


ws 
wm 
oOo an 


08 1612 1825 
58 2371 2374 
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CSECT (17821 
CSECT (17821 
1405 


CSECT (17821 


CSECT (17821 
CSECT (17821 
CSECT(1I7821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 


CSECT (17821 
CSECT (17821 
CSECT (17821 
475 487 
CSECT (17821 
17 78 


2373 2442 


CSECT (17821 
CSECT (I7821 
CSECT (17821 


N CSECT (17821 


CSECT(I7821 
CSECT (17821 
CSECT (17821 


CSECT (17821 
CSECT (17821 


CSECT (17821 
1892 1896 
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CSECT (17821 
CSECT (17821 
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EC=755285 
COPYRIGIT IBM CORP 


LENGTH (40) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENG TH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LFNGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 


LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (6) 
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T7821 === 


DECLARED 
1706 
1692 
1618 
1585 
1612 
1688 
1608 


1590 
1691 
1675 
1560 
1683 
1610 
1716 
1687 
1657 
1660 
16 26 
16 28 
1647 
17 22 
1710 
1567 
1694 
1726 
1640 
1721 
1720 
1652 
1614 
1724 
1983 
1990 
1976 
1902 
1869 
1896 
1972 
1892 


1874 
1975 
1959 
1841 
1967 
1894 
2000 
1971 
1941 
1944 
19 10 
1912 
1931 
2006 
1994 


NAME 
T65B 
T65C 
T65CC 
T65D 
T65E 
T65EE 
T65ER 


T65F 
T65FF 
T65G 
T65H 
T65HH 
T651 
T65d 
T65JJd 
T65L 
T65LL 
T65M 
T65N 
T65R 
T65RE 
T65PR 
T65S 
T65SS 
T65ST 
T65T 
T65TP 
T65U 
T65V 
T65X 
T65XF 
TO6A 
T66B 
T66C 
T66CC 
T66D 
T66E 
T66EE 
T66ER 


T66F 
T66FF 
T66G 
T66H 
T66HH 
T66I 
T66I 
T66dd 
T66L 
T66LL 
T66M 
T66N 
T66R 
T66RE 
T66RR 
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REFERENCES 
LOCATION (00002E7E) 
LOCATION (00002E4A) 
LOCATION (00002D40) 
LOCATION (00002CE6) 
LOCATION (00002D36) 
LOCATION (00002E3C) 
OCATION(00002D28 
4° 1556. 1559 1 
4 1598 160 
OCATION (00003CFO) 
LOCATION (00002E46) 
LOCATION (00002E08) 
LOCATION (00002C84) 
LOCATION (00002E28) 
LOCATION (00002D30) 
LOCATION (00002EA4) 
LOCATION (00002E38) 
LOCATION (00002DC6) 
LOCATION (00002DD2) 
LOCATION (00002D5C) 
LOCATION (00002D62) 
LOCATION (00002DA6) 
LOCATION (00002EAE) 
LOCATION (00002E8E) 
LOCATION (00002CA2) 
X LOCATION (OQOO2EUE) _ 
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HEX LOCATION (00002D90) IN 

HEX LOCATION(QOOO2EAA) IN 
1711. 1712 

HEX LOCATION (0Q002EA6) IN 
1601 1602 1604 1707 

N CSECT (17821 


CLOCK/4962 
ATTRIBUTES AND 
ADDRESS. HEX 
1704 
ADDRESS. HEX 
1618 
ADDRESS. HEX 
1585 
ADDRESS. HEX 
1587 
ADDRESS. HEX 
1596 160 1 
ADDRESS. HEX 
1625 
ADDRESS. HEX 
1538 1550 1 
1575 1581 1 
1672 167 1 
ADDRESS. HEX 
1620 
ADDRESS. HEX 
1629 164 
ADDRESS. HEX 
1661 
ADDRESS. HEX 
1558 
ADDRESS. HEX 
1674 
ADDRESS. HEX 
1591 
ADDRESS. HEX 
1714 
ADDRESS. HEX 
1657 1685 
ADDRESS. HEX 
1645 1652 
ADDRESS. HEX 
1686 
ADDRESS. HEX 
1624 
ADDRESS. HEX 
1639 
ADDRESS. HEX 
1644 
ADDRESS. HEX 
1602 160 
ADDRESS. HEX 
1708 
ADDRESS. HEX 
1577 
ADDRESS. 
1586 4233" 
ADDRESS. 
1541 
ADDRESS. 
2 164 
ADDRESS. 
1699 171 
ADDRESS. 
1542 154 
ADDRESS. HE 
1656 
ADDRESS. HEX 
1606 09 
ADDRESS. HEX 
595 
ADDRESS. HEX 
1981 
ADDRESS. HEX 
1988 
ADDRESS. HEX 
1902 
ADDRESS. HEX 
869 
ADDRESS. HEX 
ADDRESS. HEX 
1880 1887 1 
ADDRESS. HEX 
1909 
ADDRESS. HE 
1819 1831 
1856 1865 
1956 1961 
ADDRESS. HE 
1904 
ADDPESS. HEX 
1913 1926 
ADDRESS. HEX 
1945 
ADDRESS. HEX 
1839 
ADDRESS. HEX 
1958 
ADDRESS. HEX 
1875 
ADDRESS. HEX 
1998 
ADDRESS. HEX 
1941 1959 
ADDRESS. HEX 
1929 1936 
ADDPESS. HEX 
ADDRESS. HEX 
ADDRESS. HEX 
1923 
ADDRESS. HEX 
1928 
ADDRESS. HEX 
1886 188 
ADDRESS. HEX 


X LOCATION(00002DB6) 


LOCATION (00002D3C) 
LOCATION (00002282) 
LOCATION (00003158) 
LOC ATION (00003178) 
LOCATION (00003144) 
LOCATION (0000303) 
LOC ATION (00002FE0) 
LOCATION (00003030) 
LOCATION (00003136) 
LOCATION (00003022 


35 1840 

78 #41882 1884 19 
65 1974 1979 19 
LOCATION (OO0002FEA) 


LOCATION (00003140) 
LOC ATION (00003102) 
LOCATION (00002F6C) 
LOCATION (00003122) 
LOC ATION (0000302A) 
LOCATION (00003196) 
LOCATION (00003132) 
LOCATION (000030C0) 
LOCATION (000030CC) 
LOCATION (00003056) 
LOCATION (0000305C) 
LOC ATION (00003040) 
LOCATION (000031A8) 
LOCATION (00003188) 


IN 
IN 
IW 
IN 
IN 
IN 
IN 
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1 
8 


CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (T7821 
1636 1e64 
CSECT (17821 
CSECT(I7821 
CSECT (17821 
CSECT(1I7821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (I7821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT (17821 
1678 1682 
CSECT (17821 
CSECT (17821 
CSECT (17821 
CSECT(I7821 
1709 1710 


CSECT (17821 
CSECT (17821 
CSECT (17821 
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